home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Quickout < prev    next >
Text File  |  2000-01-01  |  1KB  |  49 lines
  1. getenv isplusupdate4 >NIL:
  2. if not warn 
  3. set a `getenv whereplusupd4` ;Scheiße gebaut, Update gesaut....
  4. if not warn
  5. cd "`getenv whereplusupd4`" >NIL:
  6. if not fail
  7.  
  8. if exists quickout4.upd
  9. execute quickout4.upd
  10. skip ende
  11. else
  12. skip normalmode
  13. endif ;exists #?.upd
  14. else
  15. skip normalmode
  16. endif ;CD hat gefunzt
  17. else
  18. skip normalmode
  19. endif ;Whereplusupd existiert
  20. else
  21. lab normalmode
  22. if exists env:quickstarted
  23.   Echo "Entferne Assigns..."
  24.   Assign C: APCD:c REMOVE
  25.   Assign DEVS: APCD:devs/ REMOVE
  26.   Assign FONTS: APCD:fonts/ REMOVE
  27.   Assign L: APCD:l REMOVE
  28.   Assign LIBS: APCD:libs/ REMOVE
  29.   Assign s: APCD:s REMOVE
  30.   Assign LOCALE: APCD: REMOVE
  31.  
  32.   IF $quickstarted eq "1"
  33.     Assign MUI: APCD:System/MUI/ REMOVE
  34.     Assign LIBS: APCD:System/MUI/Libs REMOVE
  35.     Assign Locale: APCD:System/MUI/Locale REMOVE
  36.   ENDIF
  37.   Assign APCD: REMOVE
  38.  
  39. ; <----- BEGIN Programm Assigns Removes ----->
  40.  
  41. ; <----- END Assigns ---->
  42. ;assign amigaplus-cd_2-2000: remove >NIL:
  43. delete >nil: env:quickstarted
  44. quit
  45. ELSE
  46. Echo "Die CD ist nicht angemeldet!*nEin Abmelden ist daher nicht erforderlich!"
  47. wait 2
  48. endif
  49. lab ende